El Mac 7/El Mac 7.iso/Infotenimiento/Makers of the 20th Century/Data/RANDOM.DIR/00055.ls

Text File | 1996-03-11 | 654 b | 25 lines

on mouseDown
  set oldSound to the soundLevel
  repeat while the mouseDown
    if rollOver(6) then
      set temp to (the bottom of sprite the clickOn - the mouseV) / 17
      if temp > 7 then
        set temp to 7
      else
        if temp < 0 then
          set temp to 0
        end if
      end if
      set the castNum of sprite the clickOn to the number of cast string("v" & temp)
      if the soundLevel <> temp then
        set the soundLevel to temp
        if oldSound = 0 then
          puppetSound(2, the number of cast "Random.iff")
        end if
        updateStage()
        set oldSound to temp
      end if
    end if
  end repeat
end